home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_58.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  929 b   |  35 lines
  1. on startRot
  2.   global nappi_sprite, to_be_sprite, roller, roll_sprite_now, to_be_roll_frame
  3.   HideInstruments()
  4.   set the locH of sprite nappi_sprite to 459
  5.   if roll_sprite_now < to_be_roll_frame then
  6.     set roller to 1
  7.   else
  8.     set roller to -1
  9.   end if
  10. end
  11.  
  12. on HideInstruments
  13.   set the member of sprite 110 to member "null_1" of castLib "soho_instruments"
  14.   set the member of sprite 111 to member "txt_null" of castLib "soho_instruments"
  15.   set f to 20
  16.   repeat while f < 32
  17.     set the visible of sprite f to 0
  18.     set the visible of sprite (f + 20) to 0
  19.     set the visible of sprite (f + 40) to 0
  20.     set the visible of sprite (f + 60) to 0
  21.     set f to f + 1
  22.   end repeat
  23. end
  24.  
  25. on HideInstrumentsJustThePic
  26.   set f to 20
  27.   remove_nappi()
  28.   repeat while f < 32
  29.     set the visible of sprite f to 0
  30.     set the visible of sprite (f + 40) to 0
  31.     set the visible of sprite (f + 60) to 0
  32.     set f to f + 1
  33.   end repeat
  34. end
  35.